home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tjockdem.arc
/
DEMO4.ARC
/
KEYDEM2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-02-03
|
1KB
|
43 lines
Program KeyTTT5_Demo_2;
uses Crt, DOS, FastTTT5, KeyTTT5;
var
B: button;
H,V: integer;
Ch : char;
begin
Clrscr;
If not Moused then
PlainWrite(1,1,'This demo only functions on PC''s equipped with a mouse')
else
begin
Move_Mouse(5,5);
WriteCenter(1,white,black,'Press the left mouse button to change cursor');
Show_Mouse_Cursor;
Repeat
Get_Mouse_Action(B,H,V);
Until B = LeftB;
Set_Mouse_Cursor_Style(4); {chr(4) is a diamond}
Hide_Mouse_Cursor;
ClearLine(1,white,black);
Box(20,5,60,15,white,black,4);
WriteCenter(1,white,black,'The mouse is now confined in the Box');
WriteCenter(2,white,black,'Move the mouse around, press Right Button when finished');
Confine_Mouse_Horiz(21,59);
Confine_Mouse_Vert(6,14);
Show_Mouse_Cursor;
Repeat
Get_Mouse_Action(B,H,V);
Until B = RightB;
Clrscr;
WriteCenter(1,white,black,'You''ve passed the basic test!');
Hide_Mouse_Cursor;
end;
delay(2000);
WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
GotoXY(1,5);
end.